home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / SYS / s / TestRexx1.rexx < prev    next >
OS/2 REXX Batch file  |  1996-09-26  |  580b  |  33 lines
  1. /* TestRexx1.rexx */
  2. /*
  3.        This shows simple calls to SkoEd
  4.  
  5.        with SkoEd running,  RX TestRexx1.rexx
  6.  
  7. */
  8.  
  9. Options FailAt 10
  10. Options results
  11.  
  12. say 'About to Start'
  13. Address COMMAND 'wait' sec 4
  14. Address SKOED1 "Get_Var(LineNum)"
  15. say result
  16. Address SKOED1 "Get_Var(FileName)"
  17. file = result
  18. Address SKOED1 "Get_Var(FilePath)"
  19. path = result
  20. say path || file
  21. Address SKOED1 "Msg(Hello)"
  22. Address COMMAND 'wait' sec 4
  23. Address SKOED1 "Set_Var(INSERT FALSE)"
  24. if rc > 0 then
  25.    exit (5)
  26. else
  27.    say "Done"
  28. Address SKOED1 "UmmErr"
  29. if rc > 0 then
  30.    say "Error"
  31. else
  32.    say "All Done"
  33.